VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cEmpleadoProduccion"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private mInfoEmpleado As cEmpleado
Private mProduccion As Collection

Private Sub Class_Initialize()
    Set mInfoEmpleado = New cEmpleado
    Set mProduccion = New Collection
End Sub

Private Sub Class_Terminate()
    Set mInfoEmpleado = Nothing
    Set mProduccion = Nothing
End Sub

Public Property Get InfoEmpleado() As cEmpleado
    Set InfoEmpleado = mInfoEmpleado
End Property
Public Property Let InfoEmpleado(ByVal valor As cEmpleado)
    Set mInfoEmpleado = valor
End Property

Public Property Get Produccion() As Collection
    Set Produccion = mProduccion
End Property
Public Property Let Produccion(ByVal valor As Collection)
    Set mProduccion = valor
End Property

